SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO


CREATE PROCEDURE [dbo].[SP_TTINTE_CNTB_U03]  
/*-------------------------------------------------------------------*/  
/*---- Empresa     : OFISIS S.A.    ----*/  
/*---- Cliente     : OFISIS S.A.    ----*/  
/*---- Sistema     : Contabilidad    ----*/  
/*---- M>dulo     : Empresa        ----*/  
/*---- Programa     : Actu. Correlativos(A?O,MES,OPERACION)----*/  
/*---- Script     :                            ----*/  
/*---- Nombre SP    : SP_TTINTE_CNTB_U03                  ----*/  
/*---- Desarrollado por    : PDGV                                ----*/  
/*---- Fecha Creaci>n    : 21/01/2005     ----*/  
/*---- Base de Datos    : MS SQL Server                 ----*/  
/*---- Versi>n     : 2000        ----*/  
/*---- Invoca a SP     :      ----*/  
/*-------------------------------------------------------------------*/  
/*---- Modificado 1 por    :                                     ----*/  
/*---- Fecha Modificaci>n  :       ----*/  
/*---- Detalle Modificaci>n:       ----*/  
/*-------------------------------------------------------------------*/  
/*-- Comentarios    :              ----*/  
/*-------------------------------------------------------------------*/  
/* drop proc SP_TTINTE_CNTB_U03                    ----*/  
/* grant all on SP_TTINTE_CNTB_U03 to PUBLIC             ----*/  
/* SP_TTINTE_CNTB_U03 '01', 1, 2001, 1                          ----*/  
/*-------------------------------------------------------------------*/  
@ISCO_EMPR           TD_VC_002,  
@ISCO_USUA          TD_VC_008,
@IDFE_USUA          TD_DT_001,
@INNU_CNTB_EMPR      TD_IN_001,  
@INNU_ANNO           TD_IN_004_ANNO,            
@INNU_MESE           TD_IN_002_MESE,   
@ISCO_OPRC_CNTB      TD_VC_003  
  
As  
Declare  
@CNNU_ANNO            TD_IN_004_ANNO,  
@CNNU_MESE            TD_IN_002_MESE,  
@CSCO_UNID_CNTB       TD_VC_003,  
@CSCO_OPRC_CNTB       TD_VC_003,  
@CNNU_ASTO            TD_IN_001  
Begin  
  -- Declaraci?n Cursor  
  Declare CU_TTINTE_CNTB_U03_1 Cursor For  
   Select CO_UNID_CNTB, Max(Convert(Int,NU_ASTO))  
   From   TXMVTO_CNTB  
   Where  CO_EMPR = @ISCO_EMPR  
   And    NU_CNTB_EMPR = @INNU_CNTB_EMPR  
   And    CO_OPRC_CNTB = @ISCO_OPRC_CNTB  
   And    NU_ANNO = @INNU_ANNO   
   And    NU_MESE = @INNU_MESE  
   Group  By CO_UNID_CNTB  
   Order  By CO_UNID_CNTB  
  
  Open CU_TTINTE_CNTB_U03_1  
    Fetch CU_TTINTE_CNTB_U03_1 Into @CSCO_UNID_CNTB, @CNNU_ASTO  
  
  While @@fetch_status = 0  
  Begin  
  
    Update TCFECH_PROC  
    Set    NU_ULTI_ASTO = @CNNU_ASTO,
           CO_USUA_MODI = @ISCO_USUA,
           FE_USUA_MODI = @IDFE_USUA
    Where  CO_EMPR      = @ISCO_EMPR  
    And    NU_CNTB_EMPR = @INNU_CNTB_EMPR  
    And    CO_UNID_CNTB = @CSCO_UNID_CNTB  
    And    CO_OPRC_CNTB = @ISCO_OPRC_CNTB  
    And    NU_ANNO      = @INNU_ANNO  
    And    NU_MESE      = @INNU_MESE  
  
    Fetch CU_TTINTE_CNTB_U03_1 Into @CSCO_UNID_CNTB, @CNNU_ASTO  
  End  
  Close CU_TTINTE_CNTB_U03_1  
  Deallocate CU_TTINTE_CNTB_U03_1  
End  
  
  
  
  
  
  
  







GO
